home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / m_l music.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  282b  |  14 lines
  1. 100 IF F=2 GOTO 200
  2. 110 IF F=0 THEN F=1:LOAD "PLAY.D",8,1
  3. 120 F=2:PRINT "[147]":POKE 53281,0
  4. 125 PRINT "TUNES BY PAUL HIGGINBOTTOM
  5. 130 [153] "CHOOSE ONE OF:
  6. 140 PRINT "1)ENTERTAINER
  7. 150 [153] "2)INVENTION #8
  8. 160 INPUT "";N
  9. 170 IF N=1 THEN LOAD "ENTER.D",8,1
  10. 180 IF N=2 THEN LOAD "INVEN8.D",8,1
  11. 190 GOTO 120
  12. 200 SYS 4096
  13. 210 GOTO 130
  14.